home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD036B.D64 / hello connect (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  718 b   |  20 lines
  1. 3 POKE53281,0:POKE53280,0:POKE53265,11
  2. 4 POKE32767,13
  3. 5 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR3
  4. 10 POKE53272,21:POKE648,4:POKE55,0:POKE56,160:POKE51,0:POKE52,160:GOSUB500
  5. 20 POKE53265,27
  6. 30 PRINT"[144]LOAD"CHR$(34)"PRESENTER"CHR$(34)","DV
  7. 32 PRINT"RUN"
  8. 36 POKE631,13:POKE632,13:POKE198,2:END
  9. 500 DV=PEEK(186):IFDV<8THENDV=8
  10. 505 PRINT"[147]":A$="                                     "
  11. 510 B$="[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]"
  12. 515 CLOSE2:OPEN2,DV,2,":FEATURES":GET#2,I$,I$:INPUT#2,I$:CLOSE2
  13. 520 POKE214,10:PRINT:POKE646,15:FORI=1TO10:PRINT""B$:NEXT
  14. 530 POKE214,12:PRINT:POKE646,11:FORI=1TO7:PRINTTAB(3)LEFT$(B$,33):NEXT
  15. 540 POKE214,11:PRINT:POKE646,3:FORI=1TO7:PRINTTAB(4)""LEFT$(B$,33):NEXT
  16. 550 POKE214,13:PRINT:POKE646,7:FORI=1TO3:PRINTTAB(6)""LEFT$(A$,29):NEXT
  17. 560 POKE214,14:PRINT:PRINTTAB(8)"[158][210]ETURNING TO [204][207][193][196][211][212][193][210] #"I$
  18. 580 RETURN
  19. 10000 D=PEEK(186):N$="HELLO CONNECT":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END
  20.